home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / CONTA70 / INSTALAR.BAT < prev    next >
DOS Batch File  |  1994-11-22  |  3KB  |  181 lines
  1.  
  2. @ECHO OFF
  3.  
  4. CLS
  5. TYPE INSTALAR.HLP
  6. ECHO  Pulse CONTROL C para Cancelar la instalación .
  7. ECHO.
  8. PAUSE
  9. CLS
  10.  
  11. :INICIO
  12. CLS
  13. ECHO.
  14. ECHO.
  15. ECHO  PROCESO DE INSTALACION CONTAPLUS 7.0 MS-DOS         SOFTWARE DE ESPAÑA S.A.
  16. ECHO.
  17. ECHO.
  18. ECHO.
  19. ECHO.                   CARGANDO EL PROCESO DE INSTALACION . . .
  20. ECHO.
  21. ECHO.
  22.  
  23. IF NOT EXIST SPACE.EXE GOTO ERROR2
  24. IF "==%1" GOTO UNIDAC
  25.  
  26. DRIVE %1\
  27. IF ERRORLEVEL 1 GOTO ERROR1
  28. MD %1\INS$SDE > %1\ERROR
  29. COPY *.* %1\INS$SDE > %1\ERROR
  30. IF NOT EXIST %1\INS$SDE\CONT7SDE.INS GOTO ERROR1
  31. %1
  32. CD %1\INS$SDE > %1\ERROR
  33. SPACE.EXE
  34. IF ERRORLEVEL 1 GOTO FESPAC1
  35. RENAME CONT7SDE.INS CONT7SDE.EXE  > %1\ERROR
  36. ECHO.
  37. ECHO    DESEMPAQUETANDO FICHEROS . . . . . .
  38. ECHO.
  39. CONT7SDE.EXE  -o -sSDE > %1\ERROR
  40. DEL CONT7SDE.EXE > %1\ERROR
  41. INSTALL
  42. DRIVE A:\
  43. IF ERRORLEVEL 1 GOTO UNIB
  44. IF NOT EXIST A:\INSTALAR.BAT GOTO UNIB
  45. CD ..
  46. A:
  47. GOTO BORRAR1
  48.  
  49. :UNIB
  50. B:
  51. GOTO BORRAR1
  52.  
  53. :BORRAR1
  54. DEL %1\INS$SDE\*.INS   > %1\ERROR
  55. DEL %1\INS$SDE\*.EXE   > %1\ERROR
  56. DEL %1\INS$SDE\*.BAT   > %1\ERROR
  57. DEL %1\INS$SDE\*.PCX   > %1\ERROR
  58. DEL %1\INS$SDE\*.SDE   > %1\ERROR
  59. DEL %1\INS$SDE\*.      > %1\ERROR
  60. RD  %1\INS$SDE         > %1\ERROR
  61. DEL %1\ERROR
  62.  
  63. CLS
  64. ECHO.
  65. ECHO    Instalación Terminada.
  66. ECHO.
  67. GOTO FIN
  68.  
  69. :FESPAC1
  70. DEL %1\INS$SDE\*.*     > %1\ERROR
  71. RD  %1\INS$SDE         > %1\ERROR
  72. DEL %1\ERROR
  73. DRIVE A:\
  74. IF ERRORLEVEL 1 GOTO UNIDAB
  75. IF NOT EXIST A:\INSTALAR.BAT GOTO UNIDAB
  76. CD ..
  77. A:
  78. GOTO ERROR1
  79.  
  80.         
  81. :UNIDAC
  82. DRIVE C:\
  83. IF ERRORLEVEL 1 GOTO ERRORC
  84. MD C:\INS$SDE > C:\ERROR
  85. COPY *.* C:\INS$SDE > C:\ERROR
  86. IF NOT EXIST C:\INS$SDE\CONT7SDE.INS GOTO ERRORC
  87. C:
  88. CD C:\INS$SDE > C:\ERROR
  89. SPACE.EXE
  90. IF ERRORLEVEL 1 GOTO FESPACIO
  91. RENAME CONT7SDE.INS CONT7SDE.EXE  > C:\ERROR
  92. ECHO.
  93. ECHO    DESEMPAQUETANDO FICHEROS . . . . . .
  94. ECHO.
  95. CONT7SDE.EXE  -o -sSDE > C:\ERROR
  96. DEL CONT7SDE.EXE > C:\ERROR
  97. INSTALL
  98. DRIVE A:\
  99. IF ERRORLEVEL 1 GOTO UNIB
  100. IF NOT EXIST A:\INSTALAR.BAT GOTO UNIB
  101. CD ..
  102. A:
  103. GOTO BORRARC
  104.  
  105. :UNIB
  106. B:
  107. GOTO BORRARC
  108.  
  109. :BORRARC
  110. DEL C:\INS$SDE\*.INS   > C:\ERROR
  111. DEL C:\INS$SDE\*.EXE   > C:\ERROR
  112. DEL C:\INS$SDE\*.BAT   > C:\ERROR
  113. DEL C:\INS$SDE\*.PCX   > C:\ERROR
  114. DEL C:\INS$SDE\*.SDE   > C:\ERROR
  115. DEL C:\INS$SDE\*.      > C:\ERROR
  116. RD  C:\INS$SDE         > C:\ERROR
  117. DEL C:\ERROR
  118.  
  119. CLS
  120. ECHO.
  121. ECHO    Instalación Terminada.
  122. ECHO.
  123. GOTO FIN
  124.  
  125. :FESPACIO
  126. DEL C:\INS$SDE\*.*     > C:\ERROR
  127. RD  C:\INS$SDE         > C:\ERROR
  128. DEL C:\ERROR
  129. DRIVE A:\
  130. IF ERRORLEVEL 1 GOTO UNIDAB
  131. IF NOT EXIST A:\INSTALAR.BAT GOTO UNIDAB
  132. CD ..
  133. A:
  134. GOTO ERRORC
  135.  
  136. :UNIDAB
  137. B:
  138. GOTO ERRORC
  139.  
  140. :ERRORC
  141. CLS
  142. ECHO.
  143. ECHO  A T E N C I O N
  144. ECHO  ===============
  145. ECHO.
  146. ECHO  No se ha detectado la unidad C: por defecto, o la unidad no es accesible.
  147. ECHO  Debe especificar una unidad destino para la Instalación.
  148. ECHO.
  149. ECHO  ** EJEMPLO **             INSTALAR  F:
  150. ECHO.
  151. ECHO.
  152. GOTO FIN
  153.  
  154. :ERROR1
  155. CLS
  156. ECHO.
  157. ECHO  A T E N C I O N
  158. ECHO  ===============
  159. ECHO.
  160. ECHO  No se ha detectado la unidad especificada, o la unidad no es accesible.
  161. ECHO  Debe especificar una unidad destino para la Instalación.
  162. ECHO.
  163. ECHO  ** EJEMPLO **             INSTALAR  F:
  164. ECHO.
  165. ECHO.
  166. GOTO FIN
  167.  
  168. :ERROR2
  169. CLS
  170. ECHO.
  171. ECHO  A T E N C I O N
  172. ECHO  ===============
  173. ECHO.
  174. ECHO  Debe situarse en la Unidad donde tenga el disquete de Instalación.
  175. ECHO.
  176. ECHO.
  177. GOTO FIN
  178.  
  179. :FIN
  180. @ECHO ON
  181.